Function GetIniSection(ByVal Path As String, ByVal SectionHead As String, ByRef Settings() As String) As Integer
        If System.IO.File.Exists(Path) = False Then
            Return 0
        Else
            Dim BmmFile As New FileStream(Path, FileMode.Open, FileAccess.Read, FileShare.Read)
            Dim InputStream As New StreamReader(BmmFile)
            Dim iIndex As Integer = 0, Section As Boolean = False, TempString As String
            While Not InputStream.EndOfStream
                TempString = InputStream.ReadLine()
                If TempString.StartsWith(";") Or TempString.Length = 0 Then Continue While
                If TempString = SectionHead Then
                    'section found, start reading
                    Section = True
                    Continue While
                ElseIf TempString.StartsWith("[") And Section = True Then
                    'finished reading
                    InputStream.Close()
                    BmmFile.Close()
                    Return iIndex
                End If
                If Section = True Then
                    Settings(iIndex) = TempString
                    iIndex += 1
                End If
            End While
            InputStream.Close()
            BmmFile.Close()
            Return iIndex
        End If
    End Function

    Function GetValue(ByVal Setting As String) As String
        Dim Start, Length As Integer
        Start = Setting.IndexOf("=") + 1
        Length = Setting.Length() - Start
        Return Setting.Substring(Start, Length)
    End Function

    Function GetProperty(ByVal Setting As String) As String
        Dim Start As Integer
        Start = Setting.IndexOf("=")
        Return Setting.Substring(0, Start)
    End Function